<% dim Dll dim Ret Dim Rs dim i dim Alias dim Testo dim Soggetto dim Data dim Idn dim Idc dim Figli dim Classetd dim UserType dim ModC 'modalità del canale UserType=session("usertype") idc=request("idc") if idc="" then idc=0 end if set Dll= server.CreateObject("bforum.cmessaggi") set Rs=Dll.OutTypeCanal (idc) modC=rs.fields("modalità") rs.close set rs=nothing if cint(modc)=2 then if usertype="" then Response.Redirect("no_accesso.asp?idc=" & request("idc") & "") else 'Response.Write "usertype:" & usertype & "-
" 'Response.Write "modc:" & modc & "-
" if (usertype=1 and modc=2)then Response.Redirect("no_accesso.asp?idc=" & request("idc") & "") end if end if end if %> PubbliAccesso - Forum - <% dim objRSForum set objRSForum = Dll.getChannel (idc) if not objRSForum.eof then Response.Write objRSForum("nomecanale") end if set dll=nothing %>

 

Vai direttamente ai contenuti della pagina

 

PubbliAccesso

 

Centro Nazionale per l'Informatica nella Pubblica Amministrazione

 


 

ti trovi in: Home Page - Forum -

<% Response.Write objRSForum("nomecanale") %>

<% if session("alias")="" then %>

Iscrizione / autenticazione

Iscriviti per accedere ai forum

Autenticati per accedere ai forum

" />  
 

<% else %>

Benvenuto, <%=session("alias")%> - Uscita dal forum.

<% end if %>
<% if usertype<>"" then %> Inserisci un nuovo messaggio <% end if %>
<% if request.form("testo")<>"" then response.write "Il messaggio è stato correttamente inoltrato." end if %>
" />
<% classetd="tdprimo" if ucase(request("funzione"))="INSERIMENTO" then InsMsg() end if set Dll= server.CreateObject ("BForum.cMessaggi") 'set rs= server.CreateObject ("adodb.recordset") 'set rs2= server.CreateObject ("adodb.recordset") set Rs=dll.keepMsg (idc) while not rs.EOF Alias=rs.Fields(0) Testo=rs.Fields(1) Soggetto=rs.Fields(2) Data=rs.Fields (3) Idn=rs.Fields (4) Figli=rs.Fields (5) rigaforum() rs.movenext wend %>

Elenco dei messaggi:

Messaggio Autore Data
Legenda
Ci sono delle discussioni Ci sono delle discussioni
Non ci sono ulteriori discussioni Non ci sono ulteriori discussioni
Indica il messaggio corrente Indica il messaggio corrente


Inizio pagina [0]

Valid XHTML 1.0!